home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs25.d81 / stereo_s (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  1KB  |  14 lines
  1. 10 A$="2ND SID CHIP FOUND AT "
  2. 20 FORS=56832TO56856
  3. 30 I=PEEK(S)
  4. 40 IFI<>0THENA=A+1
  5. 50 NEXT
  6. 60 IFA=0THENPRINTA$;"DE00 :)"
  7. 70 FORS=57088TO57112
  8. 80 I=PEEK(S)
  9. 90 IFI<>0THENB=B+1
  10. 100 NEXT
  11. 110 IFB=0THENPRINTA$;"DF00 :)"
  12. 120 IFA=0ORB=0THENEND
  13. 130 PRINT"NO 2ND SID CHIP FOUND :(
  14.